home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Util / dtype / WarpTIFFdt.lha / WarpTIFFdt / Install_WarpTIFF next >
Text File  |  2004-08-04  |  19KB  |  588 lines
  1. ; $VER: Install_WarpTIFF 1.8 (4.8.2004)
  2. ;   by Oliver Roberts (oliver@futaura.co.uk)
  3.  
  4. (if (= (exists "Env:Language") 1)
  5.     (set @language (getenv "Language"))
  6. )
  7.  
  8. (set #str-dtname "TIFF")
  9.  
  10. ;*****************
  11. ; English strings
  12. ;
  13. (set #str-welcome (cat
  14.     "\n\nWarp%s.datatype\n\n"
  15.     "Copyright © 2000-2004 Oliver Roberts, All Rights Reserved.\n\n"
  16.     "This software is SHAREWARE, which means you are expected to register "
  17.         "if you find it useful after an evaluation period of 30 days, "
  18.         "and wish to continue using it.\n\n"
  19.     "www.warpdt.co.uk")
  20. )
  21. (set #str-kick3 "You must be running Kickstart 3.0 or higher to use datatypes.")
  22. (set #str-installdt "Installing Datatype")
  23. (set #str-installclass "Installing Warp%s.datatype class")
  24. (set #str-installdes "Installing Descriptor")
  25. (set #str-wrongcpu "You must have at least a 68020 processor to use this datatype.")
  26. (set #str-oldpicdt (cat
  27.     "Warp%s.datatype needs picture.datatype v43 or higher.\n\n"
  28.     "Such a datatype is supplied with AmigaOS (3.5 or higher), P96 and CyberGraphX."
  29. ))
  30. (set #str-backupdesc (cat
  31.     "You already have a %s datatype descriptor installed.  Would you "
  32.     "like to keep a backup for safe-keeping?\n\n(if this is your first "
  33.     "time installing Warp%s.datatype, you probably should)"
  34. ))
  35. (set #str-backup "Backup")
  36. (set #str-overwrite "Overwrite")
  37. (set #str-backupdir "Where should the %s descriptor be backed up to?")
  38. (set #str-backingup "Backing up files")
  39. (set #str-reboot "You may need to reboot for the changes to take effect.")
  40. (set #str-backuptiffdir "Where should the %s descriptor(s) be backed up to?")
  41. (set #str-backuptiff (cat
  42.     "You have a %s datatype descriptor(s) installed.  These will need "
  43.     "to be removed in order for Warp%s.datatype to be used. "
  44.     "If you wish, these can be copied to another directory before they "
  45.     "are permanently deleted."
  46. ))
  47. (set #str-erase "Erase")
  48. (set #str-deldesc "Deleting DEVS:Datatypes/TIFF_#?")
  49. (set #str-askcpu "Choose which version of the library to install, to match your Amiga's processor type")
  50. (set #str-patch "Creating the CPU specific version you asked for")
  51. (set #str-askmorphos (cat
  52.     "It's possible to also have the 68k or WarpOS version installed (will "
  53.     "automatically be used if you boot without MorphOS):"
  54. ))
  55. (set #str-earlyterm (cat
  56.     "Early Term is enabled in your WarpOS prefs - this usually causes "
  57.     "major problems, which affects this and other programs.  It is "
  58.     "therefore recommended that you switch that setting off.  Switch "
  59.     "Early Term off now?"
  60. ))
  61. (set #str-off "Switch off")
  62. (set #str-leave "Leave it as it is")
  63. ; v1.3
  64. (set #str-woserr (cat
  65.     "The WarpOS version of Warp%s requires WarpUp 5.0 or higher. "
  66.     "WarpUp 4.0 is no longer supported, since it contains bugs which "
  67.     "prevent this datatype from working correctly, so you will need to "
  68.     "upgrade."
  69. ))
  70. (set #str-classdir "Select where to install the datatype class\n(don't change from the default unless you know what you're doing)")
  71. (set #str-descdir "Select where to install the datatype descriptor\n(don't change from the default unless you know what you're doing)")
  72.  
  73. ;*****************
  74. ; Spanish strings (01.09.03) by Dámaso D. Estévez <amidde@arrakis.es>
  75. ;
  76. (if (= @language "español") (
  77.  
  78.   (set #str-welcome (cat
  79.     "\n\nWarp%s.datatype\n\n"
  80.     "Copyright © 2000-2003 Oliver Roberts.\nTodos los derechos reservados.\n\n"
  81.     "Este producto es \"SHAREWARE\": eso significa que ha de registrarse "
  82.     "transcurrido el período de evaluación de 30 días, si, encontrándolo útil, "
  83.     "desea seguir utilizándolo.\n\n"
  84.     "http://www.warpdt.co.uk")
  85.   )
  86.  
  87.   (set #str-kick3 "Necesita disponer de la Kickstart 3.0 o superior para utilizar los tipos de datos.")
  88.   (set #str-installdt "Instalando el tipo de dato")
  89.   (set #str-installclass "Instalando la clase \"%s\"")
  90.   (set #str-installdes "Instalando el descriptor")
  91.   (set #str-wrongcpu "Necesita disponer de al menos un microprocesador 68020 para utilizar este tipo de dato.")
  92.  
  93.   (set #str-oldpicdt (cat
  94.     "\"Warp%s.datatype\" necesita del módulo \"picture.datatype\" versión 43 "
  95.     "o superior (es suministrado con la versión 3.5 del sistema operativo, "
  96.     "el paquete P96 y el paquete CyberGraphX)."
  97.     ))
  98.  
  99.   (set #str-backupdesc (cat
  100.     "Ya dispone del descriptor %s en su sistema.\n¿Desea que guarde "
  101.     "una copia de éste por motivos de seguridad?\n\n(si es la primera "
  102.     "vez que instala el tipo de dato Warp%s, debería responder afirmativamente)."
  103.   ))
  104.  
  105.   (set #str-backup "Copia de seguridad")
  106.   (set #str-overwrite "Sobreescribir")
  107.   (set #str-backupdir "¿Dónde debería guardar la copia de seguridad del descriptor \"%s\"?")
  108.   (set #str-backingup "Realizando la copia de seguridad de los ficheros")
  109.  
  110.   (set #str-reboot (cat
  111.     "Puede que necesite reiniciar su equipo para que los cambios "
  112.     "tengan efecto.\n\nPor otro lado, si dispone de otro(s) tipo(s) de datos "
  113.     "TIFF en \"DEVS:Datatypes\", probablemente deberá eliminarlo(s) de "
  114.     "su sistema de forma manual."
  115.   ))
  116.  
  117.   (set #str-askcpu "Elija qué versión debe ser instalada según el tipo de microprocesador de su equipo Amiga")
  118.   (set #str-patch "Se está creando la versión específica para el microprocesador elegido")
  119.  
  120.   (set #str-earlyterm (cat
  121.     "La opción \"Terminador temprano\" (o \"Early Term\" en la versión en inglés) está activada en sus preferencias de WarpOS. "
  122.     "Esta opción genera problemas importantes que afecta a éste y otros "
  123.     "programas, de manera que se recomienda que la desactive.  ¿Quiere "
  124.     "desconectar dicha opción ahora?"
  125.   ))
  126.  
  127.   (set #str-off "Desactivarla")
  128.   (set #str-leave "Dejarla tal cual")
  129.  
  130.   ; v1.7
  131.   (set #str-woserr (cat
  132.     "La versión WarpOS de \"WarpTIFF\" requiere la versión 5.0 o superior de WarpUp. "
  133.     "Ya no se ofrece soporte para la versión 4.0 de WarpUp debido a que contiene "
  134.     "errores que impiden que este tipo de dato funcione correctamente... o sea, "
  135.     "que necesita actualizarse."
  136.   ))
  137.  
  138.   (set #str-classdir "Elija dónde ha de instalarse la clase\n(no cambie la ruta/camino por defecto a menos que sepa lo que está haciendo).")
  139.   (set #str-descdir "Elija dónde instalar el descriptor\n(no cambie la ruta/camino por defecto a menos que sepa lo que está haciendo).")
  140. ))
  141.  
  142. ;*****************
  143. ; French strings (19/07/01) by Bovier Philippe
  144. ;
  145. (if (= @language "français") (
  146. (set #str-kick3 "Au minimum un Kickstart 3.0 ou supérieur est requis pour utiliser cette datatype.")
  147. (set #str-installdt "Installation de la Datatype")
  148. (set #str-installclass "Installation de la classe Warp%s.datatype")
  149. (set #str-installdes "Installation de la Description")
  150. (set #str-wrongcpu "Au minimum un processeur 68020 est requis pour utiliser cette datatype.")
  151. (set #str-oldpicdt (cat
  152.     "Warp%s.datatype nécesite la picture.datatype v43 ou supérieur.\n\n"
  153.     "Cette datatype est fournis avec l'AmigaOS 3.5, P96 et CyberGraphX."
  154. ))
  155. (set #str-backupdesc (cat
  156.     "Vous possédez déjà une description %s installé.  Désirez-vous "
  157.     "garder une sauvegarde de cette description ?\n\n(Si ceci est votre première "
  158.     "installation de la Warp%s.datatype, vous devriez, probablement)"
  159. ))
  160. (set #str-backup "Sauvegarder existant")
  161. (set #str-overwrite "Remplacer existant")
  162. (set #str-backupdir "Ou désirez-vous que la description %s soit sauvegardée ?")
  163. (set #str-backingup "Sauvegarde des fichiers")
  164. (set #str-reboot "Il est nécessaire de redémarrer votre Amiga pour que les changements soient pris en compte.")
  165. (set #str-backuptiffdir "Ou désirez-vous que la(les) description(s) TIFF soi(en)t sauvegardé(es) ?")
  166. (set #str-backuptiff (cat
  167.     "Vous possédez déjà une description TIFF installé. Celle-ci nécessite "
  168.     "d'étre supprimée afin de pouvoir utiliser la WarpTIFF.datatype. "
  169.     "Si vous le désirez, cette description peut étre copiée vers un autre répertoire "
  170.     "avant d'étre définitivement supprimée."
  171. ))
  172. (set #str-erase "Suppression")
  173. (set #str-deldesc "Suppresion de DEVS:Datatypes/TIFF_#?")
  174. (set #str-askcpu "Choisissez la version de la librairie à installer, en concordance avec votre processeur 68XXX ")
  175. (set #str-patch "Création de la version spécifique à votre processeur")
  176. (set #str-askmorphos (cat
  177.     "Il est possible d'avoir aussi la version 68k ou WarpOS installé (qui "
  178.     "sera automatiquement utilisée si vous démarrez votre Amiga avec ou sans MorphOS):"
  179. ))
  180. (set #str-earlyterm (cat
  181.     "Early Term est activé dans vos préférences WarpOS - Ce qui habituellement cause "
  182.     "d'importants problèmes, qui affectent ce et d'autres programmes.  Il est "
  183.     "chaudement recommandé de désactiver ce paramètre.  Désactivation du paramètre "
  184.     "Early Term maintenant ?"
  185. ))
  186. (set #str-off "Désactivation du paramètre")
  187. (set #str-leave "Le laisser tel qu'il est")
  188. ))
  189.  
  190. ;*****************
  191. ; Polish strings (c) 13.10.2003 by Mariusz Danilewicz <mandi@interia.pl>
  192. ;
  193. (if (= @language "polski") (
  194. (set #str-welcome (cat
  195.     "\n\nWarp%s.datatype\n\n"
  196.     "Copyright (c) 2003-2004 Oliver Roberts, Wszelkie prawa zastrzeûone.\n\n"
  197.     "Oprogramowanie to ma status SHAREWARE, co oznacza, iû powinieneô je zarejestrowaê "
  198.         "jeôli po trzydziestodniowym okresie testowym okaûe sië, iû jest ono Ci pomocne "
  199.         "i bëdziesz chciaî kontynuowaê jego uûywanie.\n\n"
  200.     "www.warpdt.co.uk")
  201. )
  202. (set #str-kick3 "Musisz uûywaê Kickstartu w wersji 3.0 lub nowszej aby korzystaê z datatype'ów.")
  203. (set #str-installdt "Instalacja Datatype'u")
  204. (set #str-installclass "Instalujë klasë Warp%s.datatype")
  205. (set #str-installdes "Instalacja pliku opisu")
  206. (set #str-wrongcpu "Aby uûywaê tego datatype'u musisz mieê procesor co najmniej 68020.")
  207. (set #str-oldpicdt (cat
  208.     "Warp%.datatype wymaga picture.datatype w wersji v43 lub nowszej.\n\n"
  209.     "Taki datatype jest dostarczany z AmigaOS 3.5, P96 i CyberGraphX."
  210. ))
  211. (set #str-backupdesc (cat
  212.     "Masz juû zainstalowany plik opisu datatype'u %s. Czy chcesz utworzyê "
  213.     "kopië bezpieczeïstwa tego pliku?\n\n(Jeôli pierwszy raz instalujesz "
  214.     "Warp%s.datatype, powinieneô utworzyê kopië bezpieczeïstwa)"
  215. ))
  216. (set #str-backup "Utwórz kopië bezpieczeïstwa")
  217. (set #str-overwrite "Zastâp")
  218. (set #str-backupdir "Gdzie zapisaê kopië bezpieczeïstwa pliku opisu datatype'u %s?")
  219. (set #str-backingup "Tworzenie kopii bezpieczeïstwa")
  220. (set #str-reboot (cat
  221.     "Aby uûywaê nowego datatype'u powinieneô uruchomiê ponownie komputer.\n\n"
  222.     "Dodatkowo jeôli w katalogu DEVS:Datatypes masz zainstalowane inne datatype'y dla formatu TIFF, "
  223.     "prawdopodobnie bëdziesz musiaî je usunâê rëcznie."
  224. ))
  225. (set #str-askcpu "Wybierz którâ wersjë biblioteki chcesz zainstalowaê, odpowiadajâcâ procesorowi w Twoim komputerze")
  226. (set #str-patch "Tworzenie wersji specjalnie dla okreôlonego przez Ciebie procesora")
  227. (set #str-askmorphos (cat
  228.     "Jest moûliwe zainstalowanie zarówno wersji dla procesora 68k oraz dla sytemu WarpOS (bëdzie "
  229.     "ona uûywana automatycznie w przypadku nieuruchamiania systemu MorphOS):"
  230. ))
  231. (set #str-earlyterm (cat
  232.     "Opcja 'Early Term' jest wîâczona w Twoich preferencjach systemu WarpOS - przewaûnie opcja ta "
  233.     "powoduje powaûne bîëdy, wpîywajâce na  ten i inne programy. Dlatego teû "
  234.     "zaleca sië wyîâczenie tej opcji. Wyîâczyê të opcjë teraz?"
  235. ))
  236. (set #str-off "Wyîâcz")
  237. (set #str-leave "Pozostaw bez zmian")
  238. ; v1.7
  239. (set #str-woserr (cat
  240.     "Wersja Warp%s dla systemu WarpOS wymaga WarpUp w wersji 5.0 lub nowszej. "
  241.     "WarpUp w wersji 4.0 nie jest juû dîuûej obsîugiwany, gdyû zawiera bîëdy uniemoûliwiajâce "
  242.     "poprawne dziaîanie tego datatype'u, dlatego teû powinieneô dokonaê uaktualnienia."
  243.  
  244. ))
  245. (set #str-classdir "Wybierz gdzie chcesz zainstalowaê plik klasy datatype'u\n(nie zmieniaj domyôlnego katalogu, chyba, ûe jesteô pewien co czynisz)")
  246. (set #str-descdir "Wybierz gdzie chcesz zainstalowaê plik opisu datatype'u\n(nie zmieniaj domyôlnego katalogu, chyba, ûe jesteô pewien co czynisz)")
  247. ))
  248.  
  249. ;**********************
  250. ; Compatibility checks
  251. ;
  252. (set #installer-ver (/ @installer-version 65536))
  253. (set #propchoices (if (< #installer-ver 42) "" "\x1b[2p"))
  254. (set @default-dest "")
  255. (set #cpustr (database "cpu"))
  256. (set #osver (/ (getversion) 65536))
  257.  
  258. (if (< #osver 39)
  259.     (abort #str-kick3)
  260. )
  261.  
  262. (set #cpu -1)
  263.  
  264. (if (= #cpustr "68020") (set #cpu 0))
  265. (if (= #cpustr "68030") (set #cpu 1))
  266. (if (= #cpustr "68040") (set #cpu 2))
  267. (if (= #cpustr "68060") (set #cpu 3))
  268.  
  269. (if (< #cpu 0) (abort #str-wrongcpu))
  270.  
  271. (set #warpos 0)
  272. (set #morphos 0)
  273. (set #os4 0)
  274.  
  275. (if (AND (>= #cpu 2) (exists "LIBS:powerpc.library"))
  276.     (
  277.         (set #ppcver (/ (getversion "LIBS:powerpc.library") 65536))
  278.         (set #warpver (/ (getversion "LIBS:warp.library") 65536))
  279.         (if (AND (>= #ppcver 16) (>= #warpver 5))
  280.             (
  281.                 (set #warpos 1)
  282.                 (set #cpu 5)
  283.             )
  284.         )
  285.     )
  286. )
  287. (if (>= #cpu 2)
  288.     (
  289.         (if (= (run "C:Version >NIL: MorphOS" (safe)) 0)
  290.             (set #morphos 1)
  291.         )
  292.     )
  293. )
  294. (if (AND (>= #osver 50) (NOT #morphos))
  295.     (
  296.         (set #os4 1)
  297.         (set #cpu 4)
  298.     )
  299. )
  300.  
  301. (set #picdt-ok 0)
  302. (if #morphos
  303.     (
  304.         (if (exists "SYS:Classes/Datatypes/picture.datatype.elf")
  305.             (
  306.                 (set #pdtver (/ (getversion "SYS:Classes/Datatypes/picture.datatype.elf") 65536))
  307.                 (if (>= #pdtver 43) (set #picdt-ok 1))
  308.             )
  309.         )
  310.         (if (AND (NOT #picdt-ok) (exists "MOSSYS:Classes/Datatypes/picture.datatype.elf"))
  311.             (
  312.                 (set #pdtver (/ (getversion "MOSSYS:Classes/Datatypes/picture.datatype.elf") 65536))
  313.                 (if (>= #pdtver 43) (set #picdt-ok 1))
  314.             )
  315.         )
  316.         (if (AND (NOT #picdt-ok) (exists "MOSSYS:Classes/Datatypes/picture.datatype"))
  317.             (
  318.                 (set #pdtver (/ (getversion "MOSSYS:Classes/Datatypes/picture.datatype") 65536))
  319.                 (if (>= #pdtver 43) (set #picdt-ok 1))
  320.             )
  321.         )
  322.     )
  323. )
  324. (if (NOT #picdt-ok)
  325.     (if (exists "SYS:Classes/Datatypes/picture.datatype")
  326.         (
  327.             (set #pdtver (/ (getversion "SYS:Classes/Datatypes/picture.datatype") 65536))
  328.             (if (OR (>= #pdtver 43) (= #os4 1)) (set #picdt-ok 1))
  329.         )
  330.     )
  331. )
  332. (if (= #picdt-ok 0)
  333.     (abort (#str-oldpicdt #str-dtname))
  334. )
  335.  
  336.  
  337. ;*************
  338. ; Here we go!
  339. ;
  340. (welcome)
  341.  
  342. (message (#str-welcome #str-dtname))
  343.  
  344. (set #defcpu #cpu)
  345. (if #morphos (set #cpu 6))
  346.  
  347. (set #cpu
  348.     (askchoice
  349.         (prompt #str-askcpu)
  350.         (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "PowerPC (WarpOS)" "PowerPC (MorphOS)")
  351.         (default #cpu)
  352.         (help @askchoice-help)
  353.     )
  354. )
  355.  
  356. (set #morphos (= #cpu 6))
  357.  
  358. (if #morphos
  359.     (set #cpu
  360.         (askchoice
  361.             (prompt #str-askmorphos)
  362.             (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "PowerPC (WarpOS)" "Only install MorphOS version")
  363.             (default #defcpu)
  364.             (help @askchoice-help)
  365.         )
  366.     )
  367. )
  368.  
  369. (if (AND (= #cpu 5) (= #warpos 0))
  370.     (
  371.         (message (#str-woserr #str-dtname))
  372.         (set #cpu
  373.             (askchoice
  374.                 (prompt #str-askcpu)
  375.                 (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "PowerPC (MorphOS)")
  376.                 (default #defcpu)
  377.                 (help @askchoice-help)
  378.             )
  379.         )
  380.  
  381.         (set #morphos (= #cpu 5))
  382.  
  383.         (if #morphos
  384.             (set #cpu
  385.                 (askchoice
  386.                     (prompt #str-askmorphos)
  387.                     (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "Only install MorphOS version")
  388.                     (default #defcpu)
  389.                     (help @askchoice-help)
  390.                 )
  391.             )
  392.         )
  393.         (if (= #cpu 5) (set #cpu 6))
  394.     )
  395. )
  396.  
  397. (if (= #cpu 5)
  398.     (if (= (getenv "powerpc/earlyterm") "1")
  399.         (if    (askbool
  400.                 (prompt #str-earlyterm)
  401.                 (help "")
  402.                 (default 0)
  403.                 (choices #str-off #str-leave)
  404.             )
  405.             (
  406.                 (textfile
  407.                     (dest "ENV:powerpc/earlyterm")
  408.                     (append "0")
  409.                 )
  410.                 (textfile
  411.                     (dest "ENVARC:powerpc/earlyterm")
  412.                     (append "0")
  413.                 )
  414.             )
  415.         )
  416.     )
  417. )
  418.  
  419. (set #descdir
  420.     (askdir
  421.         (prompt #str-descdir)
  422.         (help @askdir-help)
  423.         (default "DEVS:Datatypes")
  424.     )
  425. )
  426.  
  427. (set #classdir
  428.     (askdir
  429.         (prompt #str-classdir)
  430.         (help @askdir-help)
  431.         (default "SYS:Classes/Datatypes")
  432.     )
  433. )
  434.  
  435. (working #str-installdt)
  436.  
  437. (if (= #cpu 0)
  438.     (set #dtname "Classes/Datatypes/WarpTIFF.datatype.020")
  439. )
  440. (if (= #cpu 1)
  441.     (
  442.         (working #str-patch)
  443.         (run "spatch -ot:WarpTIFF.datatype.030 -pclasses/datatypes/WarpTIFF.datatype.030.pch classes/datatypes/WarpTIFF.datatype.020" (safe))
  444.         (set #dtname "t:WarpTIFF.datatype.030")
  445.     )
  446. )
  447. (if (= #cpu 2)
  448.     (
  449.         (working #str-patch)
  450.         (run "spatch -ot:WarpTIFF.datatype.040 -pclasses/datatypes/WarpTIFF.datatype.040.pch classes/datatypes/WarpTIFF.datatype.020" (safe))
  451.         (set #dtname "t:WarpTIFF.datatype.040")
  452.     )
  453. )
  454. (if (= #cpu 3)
  455.     (
  456.         (working #str-patch)
  457.         (run "spatch -ot:WarpTIFF.datatype.060 -pclasses/datatypes/WarpTIFF.datatype.060.pch classes/datatypes/WarpTIFF.datatype.020" (safe))
  458.         (set #dtname "t:WarpTIFF.datatype.060")
  459.     )
  460. )
  461. (if (= #cpu 4)
  462.     (set #dtname "Classes/Datatypes/WarpTIFF.datatype.os4")
  463. )
  464. (if (= #cpu 5)
  465.     (set #dtname "Classes/Datatypes/WarpTIFF.datatype.wos")
  466. )
  467.  
  468. (if (< #cpu 6)
  469.     (
  470.         (copyfiles
  471.             (help @copyfiles-help)
  472.             (prompt (#str-installclass #str-dtname))
  473.             (source #dtname)
  474.             (dest #classdir)
  475.             (newname "WarpTIFF.datatype")
  476.             (confirm)
  477.         )
  478.         (if (AND (> #cpu 0) (< #cpu 4))
  479.             (delete #dtname (safe))
  480.         )
  481.     )
  482. )
  483.  
  484. (if #morphos
  485.     (
  486.         (working #str-patch)
  487.         (run "spatch -ot:WarpTIFF.datatype.elf -pclasses/datatypes/WarpTIFF.datatype.mos.pch classes/datatypes/WarpTIFF.datatype.wos" (safe))
  488.         (copyfiles
  489.             (help @copyfiles-help)
  490.             (prompt #str-installclass)
  491.             (source "t:WarpTIFF.datatype.elf")
  492.             (dest #classdir)
  493.             (confirm)
  494.         )
  495.     )
  496. )
  497.  
  498. (set #backupdir "SYS:Storage/Datatypes")
  499.  
  500. (if (exists (tackon #descdir "TIFF"))
  501.     (if    (askbool
  502.             (prompt (#str-backupdesc #str-dtname #str-dtname))
  503.             (help "")
  504.             (default 0)
  505.             (choices #str-backup #str-overwrite)
  506.         )
  507.         (
  508.             (set #backupdir
  509.                 (askdir
  510.                     (prompt (#str-backupdir #str-dtname))
  511.                     (help @askdir-help)
  512.                     (default #backupdir)
  513.                 )
  514.             )
  515.             (copyfiles
  516.                 (help @copyfiles-help)
  517.                 (prompt #str-backingup)
  518.                 (source (tackon #descdir "TIFF"))
  519.                 (dest #backupdir)
  520.                 (infos)
  521.                 (confirm)
  522.             )
  523.         )
  524.     )
  525. )
  526.  
  527. (if (= #cpu 4)
  528.     (set #descname "Devs/Datatypes/TIFF.os4")
  529.     (set #descname "Devs/Datatypes/TIFF.68k")
  530. )
  531. (copyfiles
  532.     (help @copyfiles-help)
  533.     (prompt #str-installdes)
  534.     (source #descname)
  535.     (newname "TIFF")
  536.     (dest #descdir)
  537.     (confirm)
  538. )
  539. (copyfiles
  540.     (help @copyfiles-help)
  541.     (prompt #str-installdes)
  542.     (source "Devs/Datatypes/TIFF.info")
  543.     (dest #descdir)
  544.     (confirm)
  545. )
  546.  
  547. (if (exists (tackon #descdir "TIFF_MM"))
  548.     (
  549.         (if    (askbool
  550.                 (prompt (#str-backuptiff #str-dtname #str-dtname))
  551.                 (help "")
  552.                 (default 0)
  553.                 (choices #str-backup #str-erase)
  554.             )
  555.             (
  556.                 (set #backupdir
  557.                     (askdir
  558.                         (prompt (#str-backuptiffdir #str-dtname))
  559.                         (help @askdir-help)
  560.                         (default #backupdir)
  561.                     )
  562.                 )
  563.                 (copyfiles
  564.                     (help @copyfiles-help)
  565.                     (prompt #str-backingup)
  566.                     (source #descdir)
  567.                     (pattern "TIFF_#?")
  568.                     (dest #backupdir)
  569.                     (infos)
  570.                     (files)
  571.                     (confirm)
  572.                 )
  573.             )
  574.         )
  575.         (delete (tackon #descdir "TIFF_#?")
  576.             (prompt #str-deldesc)
  577.             (help "")
  578.             (confirm)
  579.             (optional "force")
  580.         )
  581.     )
  582. )
  583.  
  584. (run ("C:AddDataTypes \"%s\" >NIL: REFRESH" (tackon #descdir "#?")))
  585. (run "C:Avail FLUSH >NIL:")
  586.  
  587. (exit #str-reboot)
  588.